home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_15_1987_Transactor_Publishing.d64 / bt xmodem downld (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  39 lines
  1. 5 open5,2,0,chr$(6):dim i%(132)
  2. 10 printchr$(14)"[147]  [194]ootstrap [216][205][207][196][197][205] [196]ownloader  [214]er 1.0"
  3. 20 print"  [215]ritten by [195]hristopher [196]unn
  4. 30 [153]" (NULL)se the <asc1> key to start the str$ownload"
  5. 100 [153]"[(NULL)erminal (NULL)ode]
  6. 110 get#5,a$:if st=8 goto170
  7. 120 a=asc(a$+chr$(0))and127
  8. 130 if a=8 then a=157:goto160
  9. 140 if a>=65 and a<=90 then a=a+32:goto160
  10. 150 if a>=97 and a<=122 then a=a-32
  11. 160 print chr$(a);
  12. 170 get a$:if a$="" goto110
  13. 180 a=asc(a$+chr$(0)):if a=20 then a=8:goto220
  14. 190 if a=133 goto 1000:rem do xmodem
  15. 200 if a>=193 and a<=218 then a=a-128:goto220
  16. 210 if a>=65 and a<=90 then a=a+32
  17. 220 print#5,chr$(a);
  18. 230 goto 110
  19. 1000 rem xmodem download
  20. 1010 ack$=chr$(6):nak$=chr$(21):eot$=chr$(4):b=1
  21. 1020 print"[147] [216]modem [196]ownloader.
  22. 1030 [153]"valnter file name for your disk:";:f$[178]"":[133] f$:[139] f$[178]"" [137] 100
  23. 1040 [153]"(NULL)orking! (NULL)lease standby"
  24. 1050 [159]8,8,8,f$[170]",p,w"
  25. 1060 [129]x[178]1[164]25:[161]#5,n$:[130]:q[178]0:[152]5,nak$
  26. 1070 [161]#5,c$:[139] st[178]8 [137] 1170
  27. 1080 q[178]q[170]1:i%(q)[178][198](c$[170][199](0)):[153]".";
  28. 1090 [139] q[178]1 [175] c$[178]eot$ [167] [160]8:[153]"str$(NULL)(NULL)val!":[152]5,ack$:[137]100
  29. 1100 z[178]0:[139] q[179]132 [137]1070
  30. 1110 [153]:[153]"lenhecking peeklock"
  31. 1120 ck%[178]0:[129]x[178]1[164]131:ck%[178](ck%[170]i%(x))[175]255:[130]
  32. 1130 [139] ck%[179][177]i%(132) [167] [153]"peekad lenhecksum!":[137]1060
  33. 1140 [129]x[178]4[164]131:[152]8,[199](i%(x));:[130]:[161]#5,n$
  34. 1150 [153]"peeklock "b" (NULL)(NULL).":b[178]b[170]1:[152]5,ack$:q[178]0
  35. 1160 [137]1070
  36. 1170 [143] check for time out
  37. 1180 z[178]z[170]1:[139] z[179]500 [137] 1070
  38. 1190 [153]"peeklock time out! (NULL)etrying....":z[178]0:[137]1060
  39.